survey <- read.csv(file = "~/2012.csv")
library(robust)
result <- lmrob(log(Y)~log(R)+log(B)+log(M)+log(L), data = survey, method="MM", setting = "KS2011")
plot(result, which = 1, sub.caption = "")
svg(filename = "temp.svg", width = 5, height = 5)
plot(result, which = 1, sub.caption = "")
dev.off()
